﻿Public Class Main
    Public juego
    Public score
    Public ataque
    Public Sub Form1_Load() Handles MyBase.Load
        Dim menu As New Menu
        menu.MdiParent = Me
        score = New Score
        score.MdiParent = Me
        Dim credits As New Credits
        credits.MdiParent = Me
        juego = New Scrum
        juego.MdiParent = Me
        ataque = New AtaqeDelOwner
        ataque.mdiParent = Me
        menu.Show()
        Randomize()
    End Sub
    Public Sub cambio(ByVal int As Integer)
        ActiveMdiChild.Hide()
        MdiChildren(int).Show()
        MdiChildren(int).Top = 0
        MdiChildren(int).Left = 0
    End Sub
    Public Sub reiniciar(ByVal numjuego As Integer)
        ActiveMdiChild.Hide()
        If numjuego = 0 Then
            juego.close()
            juego = New Scrum
            juego.MdiParent = Me
            juego.show()
            juego.Top = 0
            juego.Left = 0
        Else
            ataque.close()
            ataque = New AtaqeDelOwner
            ataque.MdiParent = Me
            ataque.show()
            ataque.Top = 0
            ataque.Left = 0
        End If
    End Sub
End Class
